-- card: 3624 from stack: in -- bmap block id: 3164 -- flags: 0000 -- background id: 2741 -- name: merger ----- HyperTalk script ----- on closecard hide card field ayuda hide card button OK end closecard -- part 28 (field) -- low flags: 01 -- high flags: 2002 -- rect: left=98 top=151 right=172 bottom=512 -- title width / last selected line: 0 -- icon id / first selected line: 0 / 0 -- text alignment: 0 -- font id: 3 -- text size: 9 -- style flags: 0 -- line height: 12 -- part name: Source -- part 29 (field) -- low flags: 01 -- high flags: 2002 -- rect: left=98 top=177 right=198 bottom=512 -- title width / last selected line: 0 -- icon id / first selected line: 0 / 0 -- text alignment: 0 -- font id: 3 -- text size: 9 -- style flags: 0 -- line height: 12 -- part name: Destination -- part 30 (button) -- low flags: 00 -- high flags: 0000 -- rect: left=0 top=64 right=90 bottom=512 -- title width / last selected line: 0 -- icon id / first selected line: 0 / 0 -- text alignment: 1 -- font id: 0 -- text size: 12 -- style flags: 0 -- line height: 16 -- part name: SelSource ----- HyperTalk script ----- on mouseUp put FileName("STAK") into card field source choose browse tool end mouseUp -- part 31 (button) -- low flags: 00 -- high flags: 0000 -- rect: left=0 top=116 right=142 bottom=512 -- title width / last selected line: 0 -- icon id / first selected line: 0 / 0 -- text alignment: 1 -- font id: 0 -- text size: 12 -- style flags: 0 -- line height: 16 -- part name: SelSource ----- HyperTalk script ----- on mouseUp put FileName("STAK") into card field destination choose browse tool end mouseUp -- part 32 (button) -- low flags: 00 -- high flags: 0000 -- rect: left=0 top=223 right=249 bottom=512 -- title width / last selected line: 0 -- icon id / first selected line: 0 / 0 -- text alignment: 1 -- font id: 0 -- text size: 12 -- style flags: 0 -- line height: 16 -- part name: Merge ----- HyperTalk script ----- on mouseUp put card field source into sors put card field destination into des put "Please Wait . . . Merging stacks." into message go stack sors put the number of cards into sorsnum repeat with x = 2 to sorsnum put "Please Wait . . . From Source stack." into message go card x of stack sors if x = 2 then if the short name of this card = "ayuda" then next repeat end if end if put field keywords into key put field body into bod put "Please Wait . . . To Destination stack." into message go stack des find key in field keywords if the result is not empty then go last doMenu New Card put key into field keywords put bod into field body set the name of this card to key sort by field keywords else doMenu New Card put key into field keywords put bod into field body put "2" after line 1 of field keywords put field keywords into kee set the name of this card to kee sort by field keywords end if end repeat click at the loc of button "Re-Index" end mouseUp -- part 35 (button) -- low flags: 00 -- high flags: 0000 -- rect: left=427 top=1 right=26 bottom=448 -- title width / last selected line: 0 -- icon id / first selected line: 0 / 0 -- text alignment: 1 -- font id: 0 -- text size: 12 -- style flags: 0 -- line height: 16 -- part name: ? ----- HyperTalk script ----- on mouseUp global helper put the number of this card into helper visual effect dissolve go card theindex show card field ayuda show card button ok end mouseUp -- part 36 (button) -- low flags: 00 -- high flags: 0000 -- rect: left=449 top=1 right=26 bottom=471 -- title width / last selected line: 0 -- icon id / first selected line: 0 / 0 -- text alignment: 1 -- font id: 0 -- text size: 12 -- style flags: 0 -- line height: 16 -- part name: Home ----- HyperTalk script ----- on mouseUp visual effect iris close to black visual effect iris open to white go home end mouseUp -- part 37 (button) -- low flags: 00 -- high flags: 0000 -- rect: left=46 top=149 right=174 bottom=95 -- title width / last selected line: 0 -- icon id / first selected line: 0 / 0 -- text alignment: 1 -- font id: 0 -- text size: 12 -- style flags: 0 -- line height: 16 -- part name: GoSource ----- HyperTalk script ----- on mouseUp put card field source into sors go stack sors end mouseUp -- part 38 (button) -- low flags: 00 -- high flags: 0000 -- rect: left=46 top=175 right=200 bottom=95 -- title width / last selected line: 0 -- icon id / first selected line: 0 / 0 -- text alignment: 1 -- font id: 0 -- text size: 12 -- style flags: 0 -- line height: 16 -- part name: GoDestination ----- HyperTalk script ----- on mouseUp put card field destination into des go stack des end mouseUp -- part 9 (field) -- low flags: 81 -- high flags: 2007 -- rect: left=177 top=47 right=280 bottom=487 -- title width / last selected line: 0 -- icon id / first selected line: 0 / 0 -- text alignment: 0 -- font id: 20 -- text size: 12 -- style flags: 0 -- line height: 14 -- part name: ayuda -- part 10 (button) -- low flags: 80 -- high flags: A004 -- rect: left=139 top=212 right=269 bottom=183 -- title width / last selected line: 0 -- icon id / first selected line: 24209 / 24209 -- text alignment: 1 -- font id: 0 -- text size: 12 -- style flags: 0 -- line height: 16 -- part name: OK ----- HyperTalk script ----- on mouseUp global helper hide card field ayuda hide card button OK if helper > 1 then go back end mouseUp -- part contents for card part 9 ----- text ----- •••••••••••••••••••••• XrefMerge is a freeware utility stack developed to combine XrefText hypertext stacks. One thing I've noticed in developing the XrefText stack is that with every new version (XrefText5 is current as of mid-November, 1987), I've had to go through the tedious task of cutting and pasting all the introductory cards into the new stack. Even my daily XrefText stacks, which I use as notepads, todo lists, report outlines, and brainstorm repositories, frequently seem to want to be in one file. So after putting XrefMerge together for myself, I thought others might find the utility utilitarian. Scroll for more info. ••••••••••••••••••••••• Basic Instructions: • The seven buttons on the XrefMerge stack are almost self explanatory. The first two in the upper right are the universal Help and Home buttons (If you're reading this, you've found the Help button). The others are control buttons for the merging process. • Step 1, Select Source and Step 2, Select Destination give you a listing of stacks from which you can choose the stacks you wish to work with. Note that while this does allow you to select any stack, the merge will only work with XrefText stacks. You'll have to know which ones fit the bill. • Step 5, Merge Source with Destination, does the work for you, transferring keywords, text body, and card names from the Source to the Destination. You can go take a break while this runs its course...it may take a while if you are dealing with large stacks. ***** Note: This will not transfer any custom buttons you might have added to an Xref card, nor will it transfer any paintwork attached to a card. You'll have to take care of these manually. Rather than lock the screen to speed up the transfer, I let it show the movements between stacks so you can spot any buttons or pictures for a later copy and paste. ****** • There are also two optional buttons, 3 Go and 4 Go, that will take you to the Source or Destination stacks, respectively if not respectfully. I hope that XrefText users find this useful. And those of you who have sent in your shareware registration for XrefText, I thank you. ••••••••••••••••••••••• About XrefText . . . XrefText is a practical application of HyperText for the HyperCard environment. It features non-button buttons that "stick" to text, even in scrolling fields. This allows clicking on words of text to branch out into related reference cards. XrefText also has: • an alphabetizing index of keywords for quick access to specific topics, • text file importation and exportation, • printing abilities, • new Xref stack creation, • easily toggled paint/text formats for each card, • and a custom button for your Home Card. XrefText is a shareware stack, with a registration fee of only $7.50, and is available on GEnie, CompuServe, and hopefully from your local user group. ••••••••••••••••••••••• If you don't have access to XrefText elsewhere, send a disk in a reusable mailer with return postage to: Frank Patrick 3050 Upland Place Clemmons, NC 27012 (I've moved!!) GEnie: FRANKPATRICK ••••••••••••••••••••••• Graphics by Mel Ristau/Design ••••••••••••••••••••••• -- part contents for card part 28 ----- text ----- Rodime:ƒHyper:My Stacks:MyXref5 -- part contents for card part 29 ----- text ----- Rodime:ƒHyper:My Stacks:MyXref6